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I ; * M * A * G * E * was w r :i. 1 1 e i "i t o a i d y o u i n c r e a t i n g g r a p h i c s d r a w :i. n g s y 
charts? and to give you the necessarsy routines needed for 
Graphics ♦ Within the editor are several subroutines useful for 
g e r i e r a .1 p u r p o s e g r a p h i c s ♦ A d e s e r i p t :i. o n a n d i n s t r u c t i o n s o n t h e s e 
r o u t :i. n e s w i 1 1 b e d e s c u s e d 1 a t e r i n t h i s t e x t ♦ 

The editor takes control commands from the keyboard ♦ 
T h e s & w h e r e e h o s e n over r e g u 1 a r k e « s f o r t h e f o 1 1 o w i n g r e a s o n s ♦ 
Two finders are reeui red to complete a command ? therefore erasing 
the screen by accident? after a lot of work? becomes much harder •> 
a 1 s o t h e p o s s i to i 1 i t a o f c o n f 1 i c t ions with other la n g u a g e s i s 
1 e s s o n e d 9 1 e a v i n g t h e e n t i r e a s c i i s e t a v a i 1 a b 1 e for o t h e r u s e s « 

B w u s i n g I ♦ M * A ♦ G * E ♦ i n c o n J u n c t i o n with t h e s a v e f u n c t i o n s o f 
a u d i o 9 P him o n 9 o r D i s k m o n « o u c a n save t h e p i c t ures y o u d raw w i t h 
the editor* The vectors that you change for audio cassette saves 
are 001 052 #0CT* 0.I.2A #HEX <byte)r and 001 055 *0CT> 012D #HEX 
( p a si e ) ♦ I n P h i iti o n a n d D i s k m on y o u give the com in 3 n d •••• 
■SA name < FIRST PAGE) -(LAST PAGE)"* You don't have to save all 
8K if you know the beginning and ending address of your drawin.g? 
b u t t o ir* a k e i t s i in p 1 e r y o u might as w e 1 1 s a v e a 1 1 8 K ♦ 

I ♦ M * A * G ♦ E ♦ a I so ha s a m e n u s e 1 e c t i o n f a c i 1 i t y w h i c f i u s e s t h e 
1 i g h t p e n t h a t c o m e s with the i g i t a 1 6 r o u p h i g h r e s o I u t ion 
graphics board* Up to six functions can be activated simply 
by pointing the light pen to the desired box and pressing a 
button* Three of the funtions are already used* The block labeled 
u S M d r a w s a s i n g 1 e p o i n t w h e r e t he cr o s s h a i r is located* 
Choose the "D" to continually draw with the light pen* "Ul" erases 
with the light pen* "U2 thru U4 tt are user selectable* When you 
1 o a d i n t h e c a s s e 1 1 e " U 2 t h r u U 4 " will v e c t e r t o the s y s t e m 
m o n i t o r * T o c h a n g e t h e s e v e c t o r s t o J u m p to a p r o g r a m t h a t y o u 
have written three Jump vectors have been provided* The spaces 
between the blocks vector to the main command loop* The addresses 
for these vectors are in appendix #3 along with the other 
important addresses for adding subroutines and i nterf aceing 
I ♦ M » A * B * E * t o o t h e r 1 a n g u a g e s ♦ 

Another function of this editor is the ablity to have it 
execute multiple commands* This is acomplished fc^y using a command 
b u f f e r s e t a s i d e f o r a t t h e e n d of t h e c o d e f o r I * M ♦ A ♦ G * E * I n 
o r d e r f o r y o u t o u s e t h i s f u net i o n v.* o u must first s e t a f 1 a g t o 
let the command loop in the editor know which mode it is in* This 
i s e x p I a i n e d i n d e t a i I f u r t h e r i n t h e t e x t ♦ 



I * H * A * 
are provid 
cassette y 
menu comma 
.1: ♦ ii * A ♦ G * E * 
graphics b 
the softwa 
You go to 
location y 
Return to 
the menu w 
not c lea re 
the editor 
previously 
to display 



G*E* uses a crosshair cursor* Full cursor commands 

edy with a software repeat key* After loading the 

the Digital Group Op System will appear with the regular 

nds* Number 7 will say 1*M*A*G*E* Before going into 

you must let the program know where you have the 
oard located* You do this the same way it was done in 
re supplied with the Digital Group Graphics board* 
the address of "GRFST" and insert the address of the 
ou have your boardy low order first* high order second* 
the Op System and press number 7* On graphics monitor 
ill appear on the bottom of the screen* The buffer is 
d when you enter the editor? permitting one to leave 
and return to it without erasing what base been 
drawn* To clear the screen press control C? then 
the menu press control G* You may then press the home 



k e y t o a 1 s p i a y T, n e crosshair c u r s o r ♦ tf e r o r e using t h e i :i. g h t p e n 
e s .1. :i. b r a t e i t 9 ( e x p 1 a i n e d f u r t her i n t e x t ) 9 p r e s s H o m e a n d t h e 
crosshair cursor will follow the pen* Since the crosshair cursor 
is in the complementing mode after any routine clears the screen 
wou must press Home or you will get multiple crosshairs* Option 
••fc 8 e n t e r s I * M ♦ A ♦ G * E ♦ i n t h e m a c r o m o d e ♦ 



SYSTEM REQUIREMENTS 



4 K of system memory 

One Digital Group Graphics Board and Light 

Keyboard ♦ 

Monitor* 

Z-80 CPU* 



: 'en 



The capabilities of 1*M*A*G*E* are shown in the following 
table? 

E x e o 1..1 1 i v e C o m m a n d s ♦ 

S o f t w a r e r e p e a t o 1 "1 a 1 1 keyboard e o m in and s ♦ 



HOME 



C e n t e r s t h e c r o s s f 1 a i r c u r s o r ♦ 
Hex:9E> Octal: 236 



ARROW KEYS 



CONTROL 



Move the cursor 



control keys can be used if 



your keyboard does not have arrows* 

Control H: Moves the cursor left* Hen: 88? Octal? 210 
Cent ro 1 I ♦ Moves the cu rso r r i gh t ♦ Hex 1 8C » Octa 1 ♦ 2 1 4 
Control Q* Moves the cursor down* Hex JOA* Octal* 212 
Cent r o 1 R J Moves the cu r so r up ♦ Hex t SB 9 Octa 1 ♦ 2 1 3 
Cont r o 1 K ♦ Homes the cursor* Hex ♦ 9E 9 Octa 1 ♦ 236 

T i.j r n s o 1 "1 o n e dot a t t h e c e n t e r o f t h e c r o s s h a i r^ * 



R e p r e s s i n g C o n t r o 1 



w i 1 1 t u r n t h a t d o t o f f ♦ 



The single point routine in the editor is 

different than in most point programs in that 

it is in the com pi meriting mode* This makes drawing 

with single dots easier 9 you don't has/& to keep 

changing the color flagy Just position the cursor 

over the dot* 

Hex! 93 9 Octal: 223 



CONTROL 'E U J 



E i r s t p o i n t o f a 1 i n e ♦ 
Hex: 85 9 Octal: 205 



CONTROL 'D B : 



E n d p o i n t o f a 1 i n e ♦ 
Hex: 84 9 Octal: 20 4 



CONTROL X A": 



Command to draw a line between the points given 
b y t h e ^ve\f i o u s C o n t r o 1 ' E " a n d / D " c o m m a n d s ♦ 
Can be used to draw lines with a common starting 
point and different ending point by moving the 
c r o s s h a i r c u r s o r a n d p r e s s i n g c o n t r o 1 ' D " a f t e r 
pressing control "A* to draw each line* 
Hew J 81* Octal :201 



CONTROL 'B M : 



Draws a box around the points 
Control ' E " and ' D " commands ♦ 
Hex: 82 9 Octal: 202 



given hv.} the 



In Wllllll«l 



h j t, e r si 1 v i r i b r, n e u o n iv t* o .l r:. c* 1 1 < j j 

you must move the crosshair cursor away from the 

a r e a of t h e b o x o r e I s e t h e p r o g r a iyi w i 1 1 n o t d r a w 
o v e r t h e a y* e a o f t h e c y* o s s h a i r * 



Control 'W 



T h e e d :i. t o r w :i. 1 1 c o m e u p w i t h t h :i. s f 1 a 3 b e i n ti o n e ? 

and no color block displaced* Pr casing control 

' U) " w :i. 1 1 d :i. s p 1 a y t h e c o 1 o r b 1 o c k i n t h e m e n u a v* e a 

T o t o g g 1 e p r e s s e o n t r o 1 ' W " a n d C :: ~ 1 w :i. 1 1 b e 

displayed* 

Hex 197 9 Octal J 227 



CONTROL 'C J 



Clears the graphics buffer 1 ♦ Further decryption 
on manipulation of this routine is mentioned 
later in the text* 
Hex** 83? Octal: 203 



CONTROL 'F H : 



C a 1 1 s t h e c a 1 i b r a t e 1 i g h t p e n y^ o u t i n e s ♦ T h e 
message " CAL ■ and a dot positioned at the 
c e i "i t e r o f t h e s c r v e e n will appear ♦ 

T o c a 1 i b r a t e t h e p e n s i m p 1 y p 1 a c e t h e e n d 
of the pen over the dot and press the button on 
t he pen* T ft e s c r e e n w i 1 1 f 1 a s h w h i t e o n e e ? a n d 
the pro g r a m w i 1 1 y^ e t u r n b a c k t o t h e c o m m a n d 1 o o p ♦ 
At that point you must press Home before us in si 
t h e 1 i g h t p e n o r m o v i n £ t h e c y % o s s h a i r * T h e r e i s 
m o r e i n f o r m a t i o n on c a 1 i b r a t i n g t he 1 i g h t p e n i n 
the manual supplied with the graphics board* These 
are basicly the same routines* 
Hex t 86 y Octal? 20 6 



CONTROL '0 u : 



Displays a menu of six blocks* If the menu area 
is overwritten > it can be redisplayed without 
erasing the graphics buffer by pressing Control 
' G " ♦ T o c h a n g e t h e c o n t e n t s o f a b 1 o c k d 1 s p 1 a y e d 
i n t h e m e n u y o u m u s t f o 1 1 o w the d e c r i b e d m e t h o d 
in appendix #1 ♦ 
HexJ 87* Octal : 207 



CONTROL '0" 



Toggles the menu enable flag* If you do not wish 
to use the menu* control "0" will turn it off so 
y o u c a n u s e t h e e n tire g r a p h i c s b u f f e r f o r y o u r 
i m age* R epressi n g control ' " w i 1 1 t u y* n i t b a c k 
on* This command is very nice to have when you 
wish for whatever reason to use the whole screen 
or wish not to use the light pen and menu* 
Hex:8Fy Octal: 217 



CONTROL 'R"J 



A 1 1 o w s y o u to draw c o n t i n u a 1 1 « w i t h t h e 1 i g h t p e n ♦ 
T ft e 1 i g h t p en roust have b e e n c a 1 i b r a t e d b e f o r e 
you enter this routine* 
Hex: 92 y Octal: 222 



CONTROL 'X" : 



Same as control 'R 
Hex: 98 y Octal: 230 



except it erases 



CONTROL 'G"i 



E s c a p e s f r o m t h e c o n t r o 1 ' R " a n d ' X * c o in m a n d s 
and returns you to the command loop* 
HexJ 91 y Octal: 221 



CONTROL 'T": 



Jumps back to the system monitor* Can be 
m o d i f i e d t o r e t u v n y o u a n y w ft & r e y o u 1 i k e h y 
f i 1 1 i n g a n e x i t v e e t o r w i t ft t h e 
address you want to Jump to* 



T h e 3 d d r e s s :i. s ( 072E ) ♦ 
Hex* 94 y Octal i 224 

A t o p d o w i "i a p p r o a c h w i 1 1 b e t a k e n t o e x p I a i n s o m e o f t h e 
v a r i o u s s u b r a u t :i. n e s i n I ♦ M ♦ A * 6 * E * T h i s a p p r o e h :i. s t a k e n t o 
a s s i s t y o u i n u n d e r s t a n d :i n g I * ii * A ♦ G ♦ E ♦ i n c o i '» J u n t :i. o n w i t h r e a d :i. i "« g 
the source code from the top down to the end if you wish* 

I *M* A*G*E* begins with the I able "NOMAC"* This code sets a 
f .1. a g c a 1. 1 e d " S T R I N G M w h i c h i i "i t u r n i s u s e d b y t h e e o m in a n d 1 a a p 
which checks to see if you are in the macro mode* To clear "string" 
so you can use the editor in the macro mode? you enter l'*M*A*G*E* 
a t "MA C R " i n s t e a d o f " N M A C " * p t i o n # 8 i n t h e p s y s is f o r t h i s 
purpose ♦ 

The lable "START" loads the "HL" register pair with the 
address of your macro buffer* This buffer may have up to 256 
character entry s in it* It must also have as its first character 
the number of characters in your string* 

I::.' a e h o h a r a c t e r i s an e i g h t b i t b y t e ♦ F o r e >t a in p 1 e t h e 1 i s t o f 
commands "09?83y9Ey 85 ?8Ay8Ay 8A?8A yQAfQl "HEX would clear the screen* 4 
h o m e t h e c r o s s ? s e t t h e fir s t dot o f a 1 i n e>move t h e e r o s s d o w n 
four places? set the last dot of a line? draw the line between 
the dots y and then return* In the command list is also a list of 
the HEX and OCTAL eight bit values of the commands* 

This function can be used by itself or with a high level 
language such as Oasis basic with its "USR" string function or 
a language you may have* 

" I N I T " f o 1 lows w i t h t h e n e c e s s a r « c o d e t o i n i t i a 1 i z e t h e 
graphics board I'Oy set all the program flags? and to let the software 
know where the graphics board is* The tape you reseived has the 
board located at 8000 HEX* To change it? use the op system to go 
to the address (0C35) v change it from 00 80 to the address you 
have your board located* The lable for this address in your 
s o u r e e e o d e i s " A U T " ♦ 

" M C R (!) S S " d r a w s t h e o r o s s h a i r c u r s o r * W h e n " M C R S S ■ d r a w s 
:i. t i s i n t h e e o m p 1 i m e n t i n g m ode y t h e r ©for e i t c a n b e m o v e d o v e r 
other drawings without erasing them* 

"CO Ml" is the main command loop* It looks for the keys t robe? 
the light f-^en button y mid checks to see if the software is in 
the macro mode* If the light pen button comes true (pressed) y the 
program Jumps to "MENU0" which in turn looks to see if the pen 
is in the menu area* if not the software moves the crosshair to 
w h e r e t h e 1 i g h t p e n i s p o i n t i n g * 1 h e r w i s e " C M 1 " 1 o o p s 1 o o k i n g 
f o v t h e k e y s t r o b e * 

T o p 1 a c e y o u v o w n p r o g r a m i n t h e m e n u t a b 1 e y p u t t h e 
address of your routine in the "USER*" you wish to use* The 
address of the user vectors are <0?DF) for "USER2"y (09E2) for 
"USER3"y (09E5) for "USER4"* The only restrictions for placing 
your own routines into the menu selector are that when they are 
finished you must Jump to "0RL2" which takes care of the program 
flags* The address of "CRL2" is (0B65)* 

The graphics board and the light pen use I input and i output 
port* This software uses port #7 for input and output* If you do 
r i o t w i s h t o u s e p o r t * 7 t h e n y o u m u s t r e a s s e m b 1 e I ♦ M ♦ A ♦ G ♦ E ♦ o r 
use the table in appendix #2 to change the addresses of the port 
accesses* 



T h e p o :i. n t a n d p 1 o t r o u t :i . s a y* e s i iri :i. 1 a r t o t h e o n es su p p 1 i e d 
with aour Digital Group High 3 solution Graphics Board* except 
• t h e s e t^ o u t i n e s a r e n o t c a lie* ; r, h r o u g h a m e n u 1 :i. k e * " G E T u A L " b u t 
are callable routines* For e> s^tple to use point in a program of 
your own sou would saw? CALL POINT* Bnd Point ends with a "RET" 
#****BOTTOM OF PAGE TO BAY "SEE LISTING IN GRAPHICS BOARD MANUAL"**** 

"f h e g & n e v a 1 p u r p o s e r o u t i n e s a v a i I a b I e i n I ♦ M * A ♦ G * E » a y* e 

Point J Draws a point at the coordinates given by U X" & 

»Y H * 

Plot: Draws a line between "XI "y "Yl" & "X2"y "Y2"* 

Both must have "COLOR" set to the appropriate 
number* 

C 1 e a r J C I e a y* t h e g r a p h i c s b u f f e y % ♦ C a n b e c h a n si e d t o 
clear only part of the screen by substituting 
the amount you want cleared into the location 
"AMGUNT+1" which is in the subroutine "CLEAR"* 

APPENDIX .1. 
If you wish to change the appearance of one or more of the 
blocks in the menu to suit your own taste it is done by the 
f o 1 1 o w i n g m e t h o d * 

1 * Go into the editor with the #7 command* Clear the screen* 
Home the cross* Display the menu* Move the cross to the 
block you wish to change* Alter the block to the way 
y o u w a n t i t y t h e n home the c r o s s * Pre s s c o n t r a 1 " T ' t o 
Jump to the opsystem* Goto the address of "DISMEN" 
( 00) ♦ R e f e r i n g to the so u r* s e y o u will s e e t h e e o d e ♦ 



DISMEN 


LD 


BCm607D 




LD 


DEyMENBUF 




LD 


HLyMETEMP 




LDIR 






JP 


C0M1 



Exchange the address in "MENDUF" with the address in 
" MENTEMP " y examp 1 e ♦* 

Before A2D4 11 A0 9C 
A2D7 21 1C A7 

After A2D4 21 1C A7 
A2D7 11 A0 9C 

Return to the opsystemy go into the editor* &nd press 
c o n t r o 1 tt G " * N o a p p a r e n t c h a n g e w i 1 1 b e s een? b u t 
immediately save this core image of the editor and it 
w i 1 1 n o w d i s p 1 a a y o u r m e n u c h a n g e s ♦ 



APPENDIX 2 

LIST OF ADDRESS TO CHANGE FOR DIFFERENT PORTS 

OPORT LADLES? INIT+2: (0632) 

CALPt U)9F2) 

CSTART+2J <0A6B) 

BLKOFF+i: <<)A6E) 

L8N0T-1 J <0A88) 

INPOS+2: <0A95) 

STAT2-4J (0A9A) 

ST AT +2: (0A9F) 

STXC0N+2J (OAAO) 

LOADDS (0B78) 

IPORT LADLES: PEN? (069D) 

CALDO: <0A20) 

DLOOPI <0A44) 

LOCATE: (0A74) 

L8C0N+7J (0A80) 

L8N0TJ (0A84) 



APPENDIX 3 

List of pertinent addresses 

NOMAK: (0600) 

MACRO t (0608) 



FAKE J 


(1205) 


I NITJ 


(0630) 


AUTO t 


(0647) 


mcross: 


(0650) 


CO Ml J 


(068E) 


CRL2J 


(0B65) 


menuo: 


(093D) 


PLOT? 


(0B7F) 



point: (obdo 

CLEAR? (0C66) 
AMOUNT i (0C6C) 



XX 


(0C7D) 


y: 


(0C7F) 


XII 


(0C81) 


Y.U 


(0C82) 


X2J 


(0C83) 


Y2J 


(0C84) 


6RFSTJ 


(0C85) 


USER It 


(09DF) 



USER2J (09E2) 
USER3I (09E5) 



A8SM 



385E 








885E 








SS5E 








0600 








0600 








0600 


3E 


FF 




0602 


8 2 


'-"' ~! 


oc 


0605 








0605 


C3 


A.'. 8 


06 


0608 








0608 


3E 


00 




060 A 


■"-' '"■ 


9 3 


OC 


060D 








060D 








06 on 








06 OD 








060D 


21 


05 


12 


0610 


per 






06 3.1 


7E 






0612 


47 






06 1 3 


■"• ~> 






0614 


E5 






06 1 5 


C5 






0616 


F5 






06 1 7 


7E 






0618 


C3 


A9 


06 


06. 1 B 


Fi 






06 1C 


C 1 






06 ID 


El 






06 1 E 


10 


F3 




0620 








0620 


El 






0623. 


77 






0622 


CD 


50 


06 


0625 








0625 


C3 


00 


05 


0628 


3E 


30 




062A 


*"J T<* 


03 


12 


0620 


O ■**!* 


02 


12 


0630 


3E 


CC7 




0632 


D3 


07 




0634 


3E 


02 




0686 


32 


4E 


OD 


0639 


3E 


00 




06 3 B 


3 2 


SF 


OC 


063E 


32 


C> O 


OC 


064 1 


-."'2.' 


90 


OC 


0644 


.-, .~, 


03 


1 


0647 


21 


00 


80 


06 4 A 


~f~, 


85 


OC 


064 D 








064 D 


C3 


F7 


08 


0650 








0650 


3E 


02 




0652 


32 


4E 


OD 


0655 


ED 


4B 


02 


0659 


78 






06 5 A 


~< -~< 


30 


OC 


065D 


79 






065E 


D6 


02 





1 00 
0110 
0120 
0130 
0140 
1 50 
0160 
0170 
180 
0190 
0200 
0210 
0220 
0230 # 



IMAGE SOURCE V 
GENERAL COMPUTER 



1 . AUGUST 
TECHNOLOGY 



1979 



ST 0600H 

* THIS ENTRY POINT DOES NOT USE THE BUUFER COMMAND LOOP 
LD A,OFFH 
LD (STRING) , A 

* JUMP TO INITILIZE 
JP G01 

SET STRING TO USE COMMAND BUFFER 

LD A,0 

LD (STRING), A 
FALL INTO MACRO MODE 



•ft 



•ft 



LOOP I 



■ft GET 
RET 



O^'-IO 

0250 

0260 

0270 

0280 

0290 

0300 LOOP 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

0490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 



•ft LOAD HL 
* ROUTINE 
START LD 
STCOM 



PUSH 
LD 
LD 
INC 
PUSH 
PUSH 
PUSH 
LD 
JP 
POP 
POP 
POP 
DJNZ 
NUMBER 



WITH THE ADDRESS OF 
TO EXECUTE COMMANDS 

HL > FAKE 

HL 

A, (HL) 

B, A 

HL 

HL 

BC 

AF 

A, (HL) 

COM2 



COMMAND BUFFER 
FROM BUFFER "FAKE 



AF 
BC 
HL 
LOOF 
OF 



OPCODES BACK 



POP HL 
LD ( HL ) > A 
CALL MCROSS 
CHANGE THIS LOC TO JUMP 



WHERE YOU WANT TO 



JP 
INITILIZE 



GO 1 



INIT 



AUTO 

* DONT 

•ft DRAW:; 
MCROSS 



LD 

LD 

LD 

LD 

OUT 

LD 

LD 
LD 
LD 
LD 
LD 
LD 

CLEAR 



5U00 
SEQUENCE 
A , 80H 

(USTACK-i ) ,A 
(USTACK-2),A 
A > OFFH 
OPORT 
A, 2 

( COLOR ) , A 
A > 

(FLAG) ,A 
(STX),A 
( TOGGLE ) 7 A 
(COLORT) , A 
HLvSOOOH 
(GRFST)vHL 
BUT DRAW MENU 



ONCE IN BASIC WILL BE -RET" 



JP DISMEN 
; CROSS CURSOR 



LD 
LD 
LD 
LD 
LD 
LD 

SUB 
8 



Av2 

< COLOR ) > A 
BC, (USTACK- 
A,B 

< Y+ 1 ) > A 
A v L- 



•2) 



0660 


.1. E 


05 




0710 




LD 


E,5 






0662 


.-[ ^ 


7E 


00 


0720 


CML2 


LD 


(X+l ) >A 






0665 


05 






0730 




PUSH 


BO 






0666 


F5 






0740 




PUSH 


AF 






0667 


05 






0750 




PUSH 


DE 






06 6 S 


CD 


DO 


OB 


0760 




CALL- 


POINT 






066B 


Dl 






0770 




POP 


DE 






06 6C 


Fi 






0730 




POP 


AF 






066D 


01 






0790 




POP 


BO 






066E 


30 






0800 




I NO- 


A 






066F 


1 D 






08 1 




DEC 


E 






0670 


02 


/ 1 '"' 


06 


0820 




JP 


NZvCML2 






0673 


79 






083:0 




LD 


A > 






0674 


■.:»j.:! 


7E 


00 


0840 




LD 


<X+1 >,A 






0677 


78 






0850 




LD 


A>B 






0678 


06 


02 




0860 




SUB 


2 






067 A 


IE 


05 




0870 




LD 


£■> 5 






0670 


O **!« 


80 


00 


0880 


CML3 


LD 


( V> 1 ) •> A 






067F 


05 






0890 




PUSH 


BO 






0680 


05 






0900 




PUSH 


DE 






0681 


F5 






09 1 




PUSH 


AF 






0682 


on 


DC 


OB 


0920 




CALL 


POINT 






0685 


Fl 






0930 




POP 


AF 






0686 


Dl 






0940 




POP 


DE 






0687 


.1. 






0950 




POP 


BO 






0688 


30 






0960 




INC 


A 






0689 


ID 






0970 




DEC 


E 






068 A 


02 


70 


06 


0980 




...IP 


NZ.CML3 






068D 


09 






0990 




RET 








068E 








1 000 


# MAIN 


KEYBOARD COMMAND 


LOOP 




068E 


DB 


00 




.1 1 


COM 1 


IN 


KEY 






0690 


E6 


80 




1 020 




AND 


80H 






O 6 V .ii 


02 


A 7 


06 


1030 




JP 


NZ, SERVIC 






0695 


3A 


93 


00 


1040 




LD 


A» (STRING) 






0698 


FE 


00 




1050 




CP 









069 A 


OA 


IB 


06 


1060 




JP 


Z, L00P1 






06913 


DB 


07 




1070 


PEN 


IN 


I PORT 






-f°H">69F 


OB 


67 




1080 




BIT 


4, A 






-^06A1 


02 


8E 


06 


1090 




JP 


NZ.COMi 






06 A 4 


03 


3D 


09 


1 1 00 




JP 


MENUO 






06A7 








1110 


* COMPARE LOOP FOR CONTF 


iOL KEYS 




06A7 


DB 


00 




1 1 20 


SERVIC 


IN 


KEY 






06A9 


FE 


85 




1130 


COM2 


CP 


85H C 


•:NTL. -E" 




06 A B 


OA 


90 


07 


1 140 




JP 


Z , FOOT 






06AE 


FE 


8B 




1 1 50 




CP 


SBH 


"UP ARROW" 




06 BO 


OA 


4 9 


07 


1 1 60 




JP 


Z , HARROW 






06 B8 


FE 


3A 




1 1 70 




CP 


SAH 


"DARROW" 




06B5 


OA 


56 


07 


1 1 80 




JP 


Z > DARROW 






06 B8 


FE 


80 




1190 




CP 


8CH 


"RARROW" 




06BA 


OA 


ti. O 


07 


1200 




JP 


Z , RARROW 






06BD 


FE 


o o 




1210 




CP 


88H 


"LARROW" 




06 PF 


OA 


70 


07 


1220 




JP 


Z , L ARROU 






06C2 


FE 


34 




1 230 




CP 


84H 


CNTL. "D" 




0604 


OA 


B7 


07 


1240 




JP 


Z •, LOOT 






06 07 


FE 


9 3 




1 250 




OP 


93H 


ONTL. "S" 




0609 


OA 


7D 


07 


1 260 




JP 


Z , SDOT 






0600 


FE 


C/ c 




1270 




CP 


9EH 


CNTL. "H" 


OR "HOME" 


06 OF 


OA 


e? 


07 


1280 




JP 


Z , CHOME 






0601 


FE 


81 




1290 




CP 


81H 


CNTL. "A" 




06 D3 


OA 


02 


07 


1 300 




JP 


Z , DDOT 






06D6 


per 


c< o 




1310 




CP 


82H 


CNTL. "B" 


:DRAW BOX 


06 D 8 


OA 


03 


08 


1320 




JP 


Z,BOX 






06DB 


FE 


8F 




1330 




CP 
9 


8FH 


CNTL. "0" 





06DD 


CA 


21 


07 


1340 






JP 


Z > MTOG 


06E0 


FE 


'™" 




1350 






CP 


83H CNTL. "C" 5 CLEAR 


06E2 


CA 


2C 


09 


1360 






JP 


Z > CLMEM 


06 E 5 


FE 


9 2 




1370 






CP 


92H CNTL. "REDRAW 


06E7 


CA 


BD 


09 


1380 






JP 


Z , DRAW 


06EA 


FE 


9 8 




1390 






CP 


98H 


06EC 


CA 


00 


09 


1400 






JP 


ZvUDRAW CNTL. "X" 2 JUMP TO UNDRAW 


06EF 


FE 


37 




1 4 1 






CP 


87H CNTL. "0"! DISPLAY MENU 


06F1 


CA 


F7 


08 


1420 






JP 


Z,DISMEN 


06F4 


FE 


97 




1 430 






CP 


97H CNTL. "W": TOGGLE COLOR FLAG 


06F6 


3 2 


98 


OC 


1440 






LD 


(CKEY)>A TELL COLOR COMING FROM KEYBOARD 


06F9 


CA 


9D 


08 


1450 






JP 


Z , COLORS 


06 FC 


FE 


;-:/-. 




14 60 






CP 


86H CNTL. "F" : CALIBRATE LIGHT PEN 


06FE 


CA 


31 


07 


1470 






JP 


Z 7 CALROU 


0701 


FE 


9 4 




1480 






CP 


94H CNTL. "T":JUMP TO SYSTEM 


0703 


CA 


2B 


07 


1 490 






JP 


Z > ESCAPE 


0706 








1 500 


■ft 


SEE ; 


[F WERE DOING A BUFFER EXECUTION 


0706 


3A 


93 


OC 


1510 


ST? 


LD 


A, (STRING) 


0709 


FE 


00 




1 520 






CP 





070B 


CA 


IB 


06 


1530 






JP 


Z , LOOP 1 


070E 


C3 


8E 


06 


1540 






JP 


C0M1 


0711 








1 550 


•ft 


DRAW 


WITH 


LIGHT PEN FROM KEY COMMAND. 


0711 


CD 


F2 


07 


1 560 


DRAW 1 


CALL 


RFLAG 


0714 


3E 


01 




1570 






LD 


A, 1 


0716 


c'i 2 


SF 


OC 


1580 






LD 


( FLAG ) > A 


0719 


3E 


01 




1590 






LD 


A, 1 


07 IB 


CD 


7B 


01 


1 600 






CALL 


DELAY 


07 1 E 


C3 


3E 


06 


1 6 1 






JP 


CGM1 


0721 








1620 


•ft 


TOGGLE MENU ENABLE 


0721 


3A 


90 


OC 


1630 


MTOG 


LD 


A, (TOGGLE) 


0724 


2F 






1640 






CPL 




0725 


3 2 


90 


OC 


1650 






LD 


( TOGGLE ) , A 


0728 


C3 


8E 


06 


1660 






JP 


CQM1 


072B 








1670 


"/■f 


CLEAR CROS 


3S AND JUMP TO MONITOR 


072B 


CD 


F2 


07 


1680 


E5 


SCAPE 


C-HlL.. L— 


RFLAG 


072E 


C3 


00 


05 


1 690 






...ip 


5000 


0731 








1 700 


•ft 


CALIBRATE 


LIGHT PEN 


0731 


CD 


E3 


09 


1710 


CALROU 


CALL 


CAL 


0734 


3E 


05 




1720 






LD 


A, 5 


0736 


CD 


7B 


01 


1730 






CALL 


DELAY 


0739 


C3 


8E 


06 


1740 






JP 


COM! 


073C 








1750 


* 


LOAD 


POINT X & Y WITH LIGHT PEN X & Y 


073C 


3A 


03 


12 


1760 


A:i 


3SIGN 


LD 


A» (USTACK-1 > 


073F 


3 ~ f 


80 


OC 


1770 






LD 


(Y+D.A 


0742 


3A 


02 


12 


1780 






LD 


A, < USTACK-2 > 


0745 


'~'V 


7E 


OC 


1790 






LD 


(X+l), A 


0743 


C9 






1 800 






RET 




0749 








1810 


* 


MOVE 


CROSS 


3HAIR UP ONE 


0749 


CD 


p--- 


07 


1820 


HARROW 


CALL 


RFLAG 


07 4C 


3 A 


03 


12 


1 830 






LD 


A, (USTACK-1) 


074 F 


3D 






1840 






DEC 


A 


0750 


32 


03 


12 


1850 






LD 


(USTACK-1), A 


075:3 


C3 


65 


08 


1860 






JP 


CRL2 


0756 








1870 


•ft 


MOVE 


CROSS 


3HAIR DOWN ONE 


0756 


CD 


F2 


07 


1 880 


DARROW 


CALL 


RFLAG 


0759 


3 A 


03 


12 


1890 






LD 


A, (USTACK-1) 


075C 


3C 






1 900 






I NO- 


A 


075 D 


"1 "•' 


03 


12 


1910 






LO 


(USTACK-1) , A 


0760 


C3 


65 


08 


1920 






JP 


CRL2 


0763 








1930 


•ft 


MOVE 


CROSS 


3HAIR RIGHT ONE 


0763 


CD 


F2 


07 


1940 


RARROW 


CALL 


RFLAG 


0766 


3A 


02 


12 


1950 






LD 


A, (USTACK-2) 


0769 


3C 






1 960 






INC 
10 


A, 



07 6 A 


8 2 


0:?. 


12 


07 60 


C3 


65 


08 


0770 








0770 


CO 


F2 


07 


0773 


3 A 


02 


12 


0776 


30 






0777 


3!w 


02 


12 


077A 


C3 


65 


08 


077D 








0770 


CO 


F2 


07 


0780 


CO 


3C 


07 


07 S3 


CO 


DC 


OB 


0736 


C-3 


65 


08 


0789 








0739 


3E 


02 




07SB 


8 2 


4E 


00 


078E 


CO 


F2 


07 


0791 


3E 


80 




0793 


■-' ~' 


03 


12 


0796' 


3 2 


02 


12 


0799 


C3 


65 


08 


079C 








079C 


CO 


F2 


07 


079F 


3A 


02 


12 


07A2 


8 2 


FA 


OF 


07A5 


■"• ~.' 


7E 


oc 


07 A3 


3 A 


03 


12 


07AB 


.•-, .~, 


FB 


OF 


07AE 


3 2 


80 


OC 


07 Bl 


CO 


DC 


OB 


07 B 4 


C3 


65 


08 


07 B 7 








07B7 


CO 


F2 


07 


07BA 


3A 


02 


12 


07BD 


•«• U J . 


FC 


OF 


07 CO 


v"*oU» 


7E 


OC 


07C3 


3A 


03 


12 


07C6 


:-• 2! 


FD 


OF 


07 C9 


•"' '■"' 


80 


OC 


07CC 


CD 


DC 


OB 


07CF 


C3 


65 


08 


0702 








0702 


CO 


F2 


07 


0705 


2A 


FA 


OF 


0703 


.d A 


81 


OC 


07DB 


2A 


FC 


OF 


07 BE 


2 **.' 


O •"■ 


OC 


07E1 


3A 


08 


10 


07E4 


"' v 


4E 


00 


07E7 


CO 


7F 


OB 


07 FA 


3E 


02 




07EC 


3 2 


4E 


00 


07EF 


C3 


65 


08 


07F2 








07F2 


3A 


SF 


Oil: 


07F5 


FE 


00 




07F7 


CA 


02 


03 


07FA 


3E 


02 




07FC 


8 J:"! 


4E 


00 


07FF 


CD 


50 


06 


080.2. 
r\ o f\ "• 


C9 






\ i O -J o 

0803 


3 A 


03 


10 



1970 




LD 


(USTACK-2), A 


1980 




JP 


CRL2 


1990 


* MOVE 


CROSS 


3HAIR LEFT ONE 


2000 


LARROW 


CALL 


RFLAG 


20 1 




LD 


A, (USTACK-2) 


2020 




DEC 


A 


2080 




LD 


(USTACK-2), A 


2040 




JP 


CRL2 


2050 


* PLOT 


A SINGLE DOT WHERE CROSSHAIR 


2060 


SOOT 


CALL 


RFLAG 


2070 




CALL 


ASSIGN 


2080 




CALL 


POINT 


2090 




.JP 


CRL2 


2 1 00 


* HOME 


CROSS 


3HAIR 


2110 


CHOME 


LD 


A>2 


2120 




LD 


(COLOR) •, A 


2 1 30 




CALL 


RFLAG 


2140 




LD 


A,SOH 


2 1 50 




LD 


<USTACK~.t)>A 


2160 




LD 


( USTACK-2 ) v A 


2170 




JP 


CRL2 


2180 


# PLOT 


AND :i 


3 AVE FIRST DOT OF A LINE 


2190 


FOOT 


CALL 


RFLAG 


2200 




LD 


A, (USTACK-2) 


2210 




LD 


(LIBUF), A 


2290 




LD 


(X+l )»A 


2230 




LD 


A» (USTACK-1) 


2240 




LD 


<LIBUF+i),A 


2250 




LD 


(Y+l) ,A 


2260 




CALL 


POINT 


2270 




JP 


CRL.2 


2280 


* PLOT 


AND i 


SAVE LAST DOT OF A LINE 


2290 


LOOT 


CALL 


RFLAG 


2300 




LD 


Av (USTACK-2) 


23 1 




LD 


(LIBUF+2>,A 


2320 




LD 


(X+l), A 


2330 




LD 


A, (USTACK-1) 


2340 




LD 


(LIBUF+3),A 


2350 




LD 


(Y+l), A 


2360 




CALL 


POINT 


2370 




JP 


CRL2 


2380 


* PLOT 


THE I 


-INE 


2390 


DDOT 


CALL 


RFLAG 


2400 




LD 


HL, (LIBUF) 


2410 




LD 


(XI), HL 


2420 




LD 


HL, (LIBUF+2) 


2' 430 




LD 


(X2) >HL 


2440 




LD 


A, (COLORT) 


2450 




LD 


( COLOR ) , A 


2460 




CALL 


PLOT 


2470 




LD 


A, 2 


2480 




LD 


(COLOR) , A 


2490 




JP 


CRL2 


2500 


* ROUTINE Ti: 


:i KEEP CROSSHAIR CORRECT 


2510 


RFLAG 


LD 


A, (FLAG) 


2520 




CP 





2580 




...JP 


Z.RFLAG1 


2540 




LD 


A , 2 


2550 




LD 


( COLOR ) , A 


2560 




CALL 


MCROSS 


2570 


RFLAG1 


RET 




2580 


* DRAW 


A BOX FROM THE VECTORS IN FDi 


2590 


BOX 


LD 


A, (COLORT) 



IS 



AND LOOT 

A, (COLORT) 
11 



0806 


.—, —, 


4F 


00 




2600 




LD 


< COLOR ) > A 




0809 


3E 


01 






2610 




LD 


A, 1 




080 B 


•-"» 2 


8F 


OC 




2620 




LD 


( FLAG ) , A 




030E 


2 A 


FA 


OF 




2630 


BOXST 


LD 


HL, (LIBUF) 


GET XI & Yl 


08 1 1 


ED 


5B 


FC 


OF 


2640 




LD 


DE, (LIBUF+2) 


GET X2 & Y2 


08 1 5 


42 








2650 




LD 


B,D 


B-X2 


0816 


40 








2660 




LD 


C,L 


C^Yl 


0817 


ED 


43 


FE 


OF 


2670 




LD 


(BOXBUF) , BC 


STORE UPPER LEFT CORNER 


08 IB 


44 








2680 




LD 


B,H 


B~X1 


03 1C 


4B 








2690 




LD 


C,E 


C*=Y2 


08 1 D 


ED 


43 


00 


1 


2700 




LD 


( BO X B UF + 2 ),BC 


:: STORE LOWER RIGHT CORNER 


0821 


!>:'i2 


81 


oc 




2710 


BOX DRW 


LD 


( X 1 ) , HL 


STORE FIRST VECTOR 


0824 


ED 


4B 


FE 


OF 


2720 




LD 


BC» (BOXBUF) 


GET SECOND VECTOR 


0823 


ED 


43 


o o 


OC 


2730 




LD 


(X2> iBC 


STORE 


082C 


CD 


5D 


08 




2740 




CALL. 


BOX DO 


DRAW TOP LINE 


0S2F 


2 A 


FC 


OF 




2750 




LD 


HL, (LIBUF+2) 


GET X2 &Y2 


08 32 


j^!2 


o ~> 


OC 




2760 




LD 


<X2> >HL 


HL-LOWER LEFT CORNER 


0035 


ED 


43 


81 


OC 


2770 




LD 


(XI), BC 


Xl^UPPER LEFT CORNER 


0839 


CD 


5D 


03 




2780 




CALL 


BOX DO 


DRAW LEFT LINE 


083C 


ED 


4B 


00 


10 


2790 




LD 


BC, (BOXBUF* 2! 


i BC--LGWER RIGHT CORNER 


084 


ED 


43 


o •— • 


OC 


2800 




LD 


(X2),BC 


y-~i~ " " ■' 


0844 


j^2 


31 


OC 




2310 




LD 


(XI), HL 


XI -LOWER LEFT CORNER 


0847 


CD 


5D 


08 




2820 




CALL- 


BOX DO 


DRAW BOTTOM LINE 


03 4 A 


2A 


FA 


OF 




2830 




ED 


ML, (LIBUF) 


HL^UPPER RIGHT CORNER 


08 4 D 


2 2 


O t' 


OC 




2340 




LD 


(X2),HL 


y -~ ~ i • •' ii 


0850 


ED 


43 


31 


oc 


2850 




LD 


(XI), BC 


XI -LOWER RIGHT CORNER 


0854 


CD 


5D 


08 




2860 




CALL 


BOX DO 


DRAW RIGHT LINE 


0857 


CD 


F2 


07 




2870 




CALL 


RFLAG 




085A 


C3 


65 


03 




2830 




JP 


CRL2 




085 D 


E5 








2390 


BOX DO 


PUSH 


HL 


SAVE REGISTERS 


085E 


C5 








2900 




PUSH 


BC 




U85F 


CD 


7F 


OB 




29 1 




CALL 


PLOT 


PLOT THE LINE 


OS 62 


CI 








2920 




POP 


BC 


RESTORE THE REGISTERS 


08 68 


El 








2930 




POP 


HL 




0864 


C9 








2940 




RET 






0865 










2950 


* ERACI 


E OLD 


CROSS AND SEE IF KEY IS STILL VALID 


0865 


CD 


50 


06 




2960 


CRL2 


CALL 


MCROSS 




0868 


3E 


01 






2970 




LD 


A, 1 




036A 


:Z> iC 


8F 


OC 




2980 




LD 


( FLAG ) , A 




086D 










2990 


# IF KEY IS 


STILL. VALID THEN REPEAT 


08/-.D 


3E 


01 






3000 


ZZTEST 


LD 


A, 1 




03 6 F 


16 


oc 






30 1 




LD 


D > OCH 




0871 


CD 


7D 


01 




3020 




CALL 


DELAY+2 




0874 


DB 


00 






30:30 




IN 


KEY 




0876 


CB 


FF 






3040 




SET 


7, A 




0878 


CD 


5F 






3050 




BIT 


3 , A 




037A 


CA 


8E 


06 




3060 




JP 


Z,C0M1 




037D 


F5 








3070 




PUSH 


AF 




0S7E 


3E 


01 






3080 




LD 


A, 1 




0380 


16 


oc 






3090 




LD 


D , OCH 




0382 


CD 


7D 


01 




3100 




CALL 


DELAY+2 




Owsb 


Fi 








3 i 1 




POP 


AF 




0336 


C3 


A9 


06 




3120 




JP 


COM2 




0889 


3A 


02' 


1 




3130 


OVERLY 


LD 


A, (BIT) 




083C 


CB 


6F 






3140 




BIT 


5, A 




033E 


CA 


C) /. t 


08 




3 1 50 




JP 


Z,BL1 




0391 


CB 


EF 






3160 




SET 


5, A 




0893 


C3 


9 8 


08 




8170 




JP 


BL2 




0896 


CB 


AF 






3 1 80 


BL1 


RES 


5, A 




Ob'Vb' 


D3 


07 






3 1 90 


BL2 


OUT 


OPORT 




089 A 


C3 


•;:■ cr 


06 




3200 




JP 


COM! 




OS 9 D 










3210 


# TOGGLE COl 


.OR FLAG, AND C 


CHANGE COLOR BLOCK 


039 D 


3 A 


4E 


OD 




3220 


COLORS 


LD 


A> (COLOR) 





12 



08A0 


FE 


00 




08A2 


CA 


C4 


08 


08 A 5 


3E 


00 




08 A 7 


■~ '~.> 


03 


1 


08 A A 


O ~' 


4E 


OD 


08 AD 


11 


A 2 


9C 


08B0 


21 


06 


OD 


08B3 


CD 


E3 


08 


08B6 


3 A 


o o 


OC 


08B9 


FE 


00 




08 BB 


C'2 


QE 


06 


08 BE 


CD 


50 


06 


08 CI 


C3 


8E 


06 


08C4 


3E 


01 




0SC6 


3 2 


03 


1 


08C9 


O "• 


4E 


OD 


08 CC 


11 


A 2 


9C 


08CF 


21 


2 A 


OD 


0802 


CD 


E3 


08 


08 D 5 


3 A 


9 3 


OC 


Oft PP. 


FE 


00 




08DA 


C2 


8E 


06 


08DD 


CD 


50 


06 


O8E0 


C3 


8E 


06 


08 E 3 


OF 


24 




08E5 


3E 


IE 




08E7 


ED 


A0 




08E9 


ED 


A0 




08EB 


£' ■—' 






08EC 


5F 






08ED 


02 


Fl 


08 


08F0 


14 






08F1 


OD 






0SF2 


oc 






08F8 


02 


E5 


08 


08F6 


C9 






08F7 








08F7 


1 


5F 


2 


08 FA 


1 1 


AO 


9C 


08FD 


21 


50 


00 


0900 


FD 


BO 




0902 


C3 


3E 


06 


0905 


97 






0906 


3 2 


93 


OC 


0909 


C3 


9D 


08 


090C 








09 0C 


3 A 


'-! "7-' 


OC 


09 OF 


FE 


00 




09 i 1 


C2 


17 


09 


09 1. 4 


.-, .--, 


4E 


OD 


09 1 7 


3E 


00 




09 1 9 


■"* ■"' 


4E 


OD 


09 J C 


3E 


05 




09 IE 


CD 


7B 


01 


092 1 


CD 


44 


OA 


092.4 


3E 


00 





3E 



SF 


OC 


39 


07 


OC) 




3F 


OC 


92 


OC 


F2 


07 



3230 




OP 





3240 




...IP 


Z,CL1 


3250 




L.D 


A»0 


3960 




LD 


(COLORT) , A 


3270 




L...D 


( COLOR ) > A 


3280 




LD 


DE , COLADR 


3290 




LD 


HL.COLORO 


3300 




CALL- 


WORPIC 


3310 




ED 


A, (CKEY) 


3320 




CP 





3330 




UP 


NZ,C0M1 


3340 




CALL 


MCROSS 


3 850 




JP 


com 


3360 


CL1 


LD 


A, 1 


3370 




LD 


(COLORT) > A 


3380 




LD 


( COLOR > , A 


3390 




LD 


DE, COLADR 


3:400 




LD 


HL, COLOR 1 


3410 




CALL 


WORPIC 


3420 




LD 


A, (CKEY) 


3430 




CP 





3440 




JP 


NZ,C0M1 


3450 




CALL 


MCROSS 


3460 




JP 


COM! 


3470 


WORPIC 


LD 


C , 36D 


3480 


Ll 


LD 


A, 300 


3490 




LDI 




3500 




LDI 




3510 




ADD 


E 


3520 




LD 


E> A 


3530 




JP 


NCCL2 


3540 




I NC 


D 


3550 


CL2 


DEC 


C 


3560 




INC 


c 


3570 




JP 


NZ»L1 


3 5 8 




RET 




3590 


* DISPLAY MENU 


3600 


DISMEN 


LD 


BC607D 


3610 




LD 


DE,MENBUF 


3620 




LD 


HL, ME TEMP 


3630 




LDIR 




3640 




.JP 


C0M1 


3650 


CLBUMP 


SUB 


A 


3660 




LD 


( CKEY ) , A 


3670 




JP 


COLORS' 


3680 


* UNDRAW WITH LIGHT PEN 


3690 


UDRAW 


LD 


A, (STX) 


3700 




CP 





37 1 




JP 


NZ.STXL3 


3720 




LD 


( COLOR ) 7 A 


3730 


STXL3 


LD 


A , 


3740 




LD 


( COLOR ) v A 


3750 




LD 


A, 5 


3760 




CALL 


DELAY 


3770 




CALL 


DLOOP 


3780 




LD 


A » 


3790 




LD 


( FLAG ) , A 


3800 




JP 


CHOME 


3810 


* CLEAR MEW 


3RY AND HOME 


3820 


CL.MEM 


LD 


A j 


3880 




LD 


< FLAG ) , A 


3840 




LD 


(STX) , A 


3850 




CALL 
13 


RFLAG 



FROM KEY COMMAND 



CROSS 



0937 


CD 


66 


oc 


093 A 


C3 


89 


07 


09 3D 








09 3D 


CD 


50 


06 


0940 


CD 




OA 


0943 


3 A 


90 


OC 


0946 


FE 


00 




0943 


C2 


52 


09 


094B 


3i'-i 


03 


12 


094 E 


06 


E5 




0950 


30 


03 




0952 


C3 


11 


07 


0955 


3A 


03 


12 


09 58 


06 


F7 




09 5 A 


38 


03 




095C 


C3 


11 


07 


09 5F 








09 5F 


21 


13 


09 


09/-.. 2 


•-•■ A 


02 


12 


0965 


06 


08 




0967 


CB 


3F 




0969 


ce 


3F 




096 B 


CB 


3F 




09 6 D 


CB 


3F 




09 6F 


CB 


17 




0971 


85 






0972 


6F 






0973 


02 


77 


09 


0976 


24 






0977 


E9 






0973 








0978 


18 


IE 




09 7 A 


18 


89 




097C 


IS 


1A 




097E 


13 


•',"< o 




0980 


18 


16 




ovy2 


18 


8 9 




0984 


18 


12 




0936 


18 


84 




0988 


18 


0E 




09 3 A 


18 


53 




09 30 


18 


OA 




098E 


18 


52 




0990 


18 


06 




0992 


18 


51 




0994 


18 


02 




0996 


1 8 


00 




09' 9 8 








0998 


3E 


02 




09 9' A 


CD 


7B 


01 


099 D 


CD 


50 


06 


09A0 


C3 


8E 


06 


09 A 3 








09 A 3 








09 A3 


3E 


1 




09 A 5 


3 2 


4E 


00 


09 A3 


CD 


DC 


OB 


09 A B 


3E 


02 




09 AD 


-~' ~< 


4E 


OD 


09 BO 


3E 


05 




09B2 


CD 


7B 


01 


09B5 


3E 


00 




09B7 


'"■ ~' 


oc 


OC 



3860 CALL CLEAR 

3870 UP CHOME 

3880 * SEE IF PEN IS POINTED TO MENU, IF NOT PUT CROSS THERE 

3890 MENUO CALL MCROSS 

3900 CALL LSTART 

3910 LD A, (TOGGLE) 

3920 CP 

3930 JP NZvTOGDRA 

3940 LD A, (USTACK--1) 

3950 SUB 0E5H 

3960 ...IR NCMENU1 

3970 TOGDRA JP DRAW! 

3980 MENU 1 LD A, (USTACK-1 > 

3990 SUB 0F7H 

4000 JR CMENU2 

4010 JP DRAW1 

4020 # TAKE X & Y, SHIFT TO FIND BLOCK PEN IS AT 

4030 MENU2 LD HL,MTABlE 

4040 LD A, (USTACK--2) 

4050 SUB 08 D 

4060 SRL A 

4070 SRL A 

4030 SRI.. A 

4090 SRL A 

4 1 00 RL A 

411 ADO L 

4 1 20 LD L > A 

41.30 JP MC> TJUMP 

4140 INC H 

41.50 TJUMP JP (HL> 

4160 * TABLE OF MENU OPTIONS 

4170 MTABLE JR NOBLK 

4130 JR CLBUMP 

4190 JR NOBLK 

4200 JR DSDOT 

4210 JR NOBLK 

4220 JR DRAW 

4230 JR NOBLK 

4240 JR UDRAW 

4 250 JR NOBLK 

4260 JR USER! 

4270 JR NOBLK 

4230 JR USER2 

4290 JR NOBLK 

4300 JR USERS: 

4810 JR NOBLK 

4320 JR NOBLK 

4330 * IF NON VALID BLOCK JUMP TO COM! AFTER A DELAY 

4340 NOBLK LD A, 2 

4350 CALL. DELAY 

4360 CALL MCROSS 

4370 JP COM! 

4380 * PLOT SINGLE DOT WHERE CROSS IS 

4390 * 

4400 DSDOT 

4410 

4420 

44 30 

4440 LD (COLOR). A 

4450 

4460 

4470 

4480 



L..D 


A, 1 


LD 


( COLOR ) v 


CALL 


POINT 


LD 


A, 2 


LD 


( COLOR ) , i 


LD 


A » 5 


CALL 


DELAY 


LD 


A , 


LD 


( FLAG ) , A 


14 





09 B A 


C3 


39 


07 


09BD 








09 BD 


3 A 


'~j'~ f 


oc 


0900 


FE 


00 




09 02 


C2 


CA 


09 


09C5 


3E 


01 




09C7 


3 1 - ."! 


4E 


00 


09CA 


3E 


01 




09CC 


:Z> .«..'.' 


4E 


00 


09 OF 


3E 


05 




090 1 


CO 


7B 


01 


0904 


CO 


44 


OA 


0907 


3E 


00 




0909 


•~ ■■"' 


3F 


oc 


090C 


C3 


'39 


07 


09 OF 








090F 








090F 








09 OF 


C3 


00 


05 


09 E 2 


C3 


00 


05 


09E5 


C3 


00 


05 


09E8 








09 ES 








09 ES 








09 ES 








09ES 


3E 


00 




09EA 


•.::> 2 


SB 


OC 


09ED 


■'"' "~ 


30 


OC 


09 FO 


3E 


FF 




09F2 


03 


07 




09 F4 


CO 


66 


OC 


U9H 7 


3E 


01 




09 F 9 


32 


AE 


00 


09FC 








09FC 


21 


99 


OC 


09FF 


01 


OF 


OC 


0A02 


7E 






0A03 


•~»'i> 


7E 


OC 


0A06 


OA 






0A07 


3 2 


SO 


OC 


OAOA 


FE 


FF 




OAOC 


CA 


IB 


OA 


OAOF 


E5 






0A10 


erf. 






OAli 


CO 


DC 


OB 


OA.1.4 


C 1 






OA 1 5 


El 






0A16 


*"*.* '"' 






0A17 


03 






0A18 


C3 


02 


OA 


OA J. B 


3E 


00 




OAin 


■~' ■'."•' 


AE 


00 


0A20 


OB 


07 




0A22 


CB 


67 




0A24 


C2 


20 


OA 


0A27 


CO 


65 


OA 


0A2A 








0A2A 


3E 


01 




0A2C 


3 2 


4E 


00 


0A2F 


3 A 


03 


12 


0A32 


06 


SO 




0A34 


EO 


44 




0A36 


o ~> 


SB 


OC 



4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
45S0 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
46S0 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
47S0 
4790 
4S00 
4S10 
4820 
4830 
4840 
4850 
4S60 
4 870 
4380 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4 970 
4980 
4990 
5000 
50 1 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 



# DRAW 
DRAW 



ST XL. 



JP 

WITH 

EO 

CP 

JP 

LD 

LD 

LD 

LD 

LD 

CALL 

CALL 

LD 
JP 
ALL USER I 



CHGME 

LIGHT PEN FROM MENU 
A, (STX) 


NZiSTXL2 
A, 1 

( COLOR ) > A 
A, 1 

( COLOR ) •> A 
A, 5 
DELAY 
BLOOP 
A •> 

( FLAG ) , A 
CHOME 

IENU SELECTIONS JUMP TO MONITOR 
YOU LIKE TO ANY ROUTINES YOU WRITE 
JUMP TO "COMl" WHEN FINISHED 



* CHANGE IF 

* ALWAYS HAVE THEM 
USER 1 JP 5000 
USER 2 JP 5000 
USERS JP 5000 
^CALIBRATE LIGHT PEN ROUTINE* 

*THIS ROUTINE DISPLAYS THE MESSAGE " CAL 

* SCREEN AND A DOT AT THE COORDINATES SO 

* THE MIDDLE OF THE SCREEN.* 



ON THE 



■St.' 



CAL 



CALP 



* DRAW:: 
PIOl 

PIC2 



INC 



CALDO 



CAL DO 



LD 
LD 
LD 
LD 
OUT 
CALL 
LD 
LD 
> WHAT 

LD 

LD 

LD 

LD 

LD 

CP 

JP 

PUSH 

PUSH 

CALL 

pop 

POP 

INC 

INC 

JP 

LD 

LD 

IN 

BIT 

JP 

CALL 



A,0 

( YOFF ) , A 
<XOFF),A 
A,OFFH 
OPORT 
CLEAR 
A > 1 

(COLOR) » A 
EVER X & 
HL, X ARRAY 
BC/YARRAY 
A, <HL) 
(X+l) ,A 
A, (BO 
(Y+l), A 
OFFH 
Z v CALDO 
HL 
BC 

POINT 
BC 
HL 
HL 
BC 

PIC2 
A » 

( COLOR ) , 
I PORT 
4, A 

NZ7CALDC 
LSTART 



Y 



ARE IN X ARRAY & YARRAY 



A 



* CALIBRATION OFFSET ROUTINE 



10 



LD 

LD 

LD 

ADD 

NEG 

t D 
15 



A, 1 

( COLOR ) , A 

A > ( USTACK- 

SOH 

( YOFF ) , A 



■I) 



0A39 3A 02 12 

0A3C 06 SO 

0A3E ED 44 

0A40 32 3D 00 

0A43 09 

0A44 

0A44 DB 07 

0A46 OB 67 

0A40 02 5D OA 

0A4B OD 65 OA 

0A4E 3 A 03 12 

0A51 32 80 00 

0A54 3 A 02 12 

0A57 32 7E 00 

0A5A CD DC OB 

0A5D DB 00 

0A5F FE 91 

0A61 03 

0A62 03 44 OA 

0A65 

0A65 ED 73 95 

0A69 3E FE 

0A6B 

0A6B D3 07 

0A6D 30 

0A6E D3 07 

0A70 3E 00 



oa: 



D3 00 



12 



0A74 DB 07 
0A76 OB 77 
0A7S OA 74 OA 
0A7B 3E 7B 
0A7D 5F 
0A7E 06 00 
0A30 OE 07 
0A32 16 40 
0AS4 21 03 
0AS7 7B 
0A38 

0A83 D3 07 
0A3A 
OASA DB 
0A30 A2 
0A8D 02 
0A90 03 
0A93 

0A93 3E 73 
0A95 B3 07 
0A97 ED AA 
0A99 30 
0A9A D3 07 
0A9C ED AA 
0A9E 7B 
0A9F D3 07 
0AA1 ED 78 
0AA3 FA 93 OA 
0AA6 A2 
0AA7 OA A3. OA 
OAAA 3E 7F 
OAAC D3 07 
OAAE 97 
OAAF B8 
OABO OA 69 OA 



07 

8 A OA 
9E OA 



OL 



5120 
5 1 30 
5140 
5 1 50 
5 1 60 
5 1 70 
5 1 30 
5 1 90 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5230 
5290 
5300 
53 1 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
541 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
55 1 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
56 1 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 



ED 
ADD 
NEG 
LD 
RET 
CONTINUALLY 



A, (USTACK- 
8 OH 



(XOFF), A 



DRAW UITH LIGHT PEN. EXIT ON CNTL. "Q" 



DLOOP 



DLOOP 1 



* STAR 
LSTART 
OSTART 

BLKOFF 



LOCATE 



L8C0N 



IN 

BIT 

..JP 

CALL 

LD 

LD 

LD 

LD 

CALL 

IN 

CP 

RET 

JP 

' OF 

LD 

LD 

OUT 

I NC 

OUT 

LD 

OUT 

IN 

BIT 

JP 

LD 

LD 

LD 

LD 

LD 

LD 

LD 



I PORT 
4, A 

NZ, DLOOP 1 
LSTART 
A 7 < USTACK ~1) 
< Y+ 1 ) , A 
A, (USTACK -2) 
(X+1)»A 
POINT 
KEY 
91H 
Z 

DLOOP 
LOCATE LIGHT PEN ROUTINE 
( SSTACK ) » SP 
A,OFEH 



OPORT 

A 

OPORT 

A , 

TV 

I PORT 

6, A 

Z , LOCATE 

A,7BH 

EvA 

B , 

C, I PORT 

D,40H 

HL , USTACK-1 

A » E 



CLR FOUND .STROBE 81 hTL 
OFF, LED OFF , BLACK ON 

BLACK OFF 



WHITE 



LOCATED 



INITIALIZE COUNT 



L 



MASK 



REMOVE CLR> STROBE STATUS, WHITE 
ON, LED ON, BLACK OFF 



OUT OPORT 



#####*## LOOK FOR RETRACE TINE •a-*-***-***** 



L8N0T 



-s- a •& it # ■&• 
I NPOS 



STAT2 
STAT2X 

ST X CON 



IN 

AND 

JP 

JP 

GET 

LD 

OUT 

HMD 

I NC 

OUT 

IND 

LD 

OUT 

IN 

JP 

AND 

JP 

LD 

OUT 

SUB 

CP 

JP 
16 



I PORT 
D 

NZ.L8N0T 
STAT2 
LIGHT PEN 
A»7SH 
OPORT 

A 
OPORT 

A,E 

OPORT 

A, (0) 

M, I NPOS 

D 

Z.STAT2X 

A i 7F*H 

OPORT 

A 

B 

Z , OSTART 



LOCAT 1 0N3 *•«•■«•###■«• «• 



STROBE 01 



STATUS STROBE 



FOUND- i? 
N0»L3~i? 
NO 



0AB3 

0AB3 21 03 12 

0AB6 31 84 11 

GAB 9 73 

OABA 08 

OABB 16 00 

OABD OB 28 

OABF 

OABF 4E 

OACO 2B 

0AG1 2B 

0AC2 7E 

0AC3 91 

0AC4 D6 03 

0AC6 F2 D3 OA 

0AC9 79 

OACA F5 

OACB 14 

OACC 04 

OACD C2 BF OA 

OADO G3 EO OA 

0AD3 04 

0AD4 CA DD OA 

0AD7 7E 

OADS F5 

0AD9 1 4 

OADA G3 BF OA 

OADD 79 

OADE F5 

OABF 14 

OAEO 

OAEO 42 

OAE 1 1 '1 

0AE2 15 

0AE3 CA 69 OA 

OAE 6 21 00 00 

OAE 9 4 A 

OAEA 16 00 

OAEC Fl 

OAEB 5F 

OAEE 19 

OAEF 05 

OAFO C2 EC OA 

0AF3 16 00 

0AF5 ED 42 

0AF7 FA FE OA 

OAF A 14 

OAFB C3 F5 OA 

OAFE 3A 8B OC 

0B01 82 

OB 02 32 03 12 

OE^OS 

OB 05 08 

0B06 31 84 11 

0B09 CB 2F 

OBOB 47 

OBOC FD 21 04 12 

IE 00 

3C 



0B10 
OB 1 2 
OB 13 
OB 13 
OB 1 7 
OB 18 



DD 21 02 1 

4F 

26 00 



5750 
5760 
5770 
5780 
5790 
5800 
58 1 
5320 
5830 
5840 
5850 
5860 
5870 
5380 
5390 
5900 
5910 
5920 
5930 
5940 
5.~- 50 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6 1 00 
6 1 1 
6120 
6130 
6140 
6150 
6 1 60 
6170 
6130 
6 1 90 
6200 
62 1 

6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
63 1 
6320 

6340 
6350 
6360 
6370 



#*#*#* INITIALIZE TO COMPUTE DOT LOCATIONS ****** 



CHEK 



LD 
LD 

LD 
EX 
LD 
SRA 

*• ■& * # # -s- -a- a C H E C K 

NXTLIN LD 
DEC 
DEC 
LD 
SUB 
SUB 
...JP 
LD 

PUSH 
INC 
I NC 
JP 
JP 
INC 
JP 
LD 

PUSH 
INC 
JP 
LD 

PUSH 
INC 
GET 
LD 
INC 
DEC 
JP 
LD 
LD 
LD 
POP 
LD 
ADD 
DEC 
JP 
LD 
SBC 
JP 
INC 
JP 
LD 
ADD 
LD 



riAVE B 



V ALUES## ***** *** ***** *** 

LOAD C WITH LOW LINE 



3AVLN 



■£- * * * H- •* 

LINES 



HLJJSTACK-l 

SP.USTACK-128D 

A>B 

AF, AF ■' 

D > 

B 

LINE 
C > < HL > 
HL 
HL 

A, (HL) 
C 

3D 

P , CHEK2 
A ■> C 
AF 
D 
B 

NZ, NXTLIN 
LINES 
B 

ZvSAVLN 
A, (HL) 
AF 
D 

NXTLIN 
A»C 



LOAD A WITH HIGH LINE 



SAVE LOW LINE 



NO 

YES, PICK 



FOUR BEST VALUES 



SAVE HIGHER LINE 



SAVE LOW LINE 



SUML 



AVGLIN 



LOADL 



AF 
D 
BEST VALUES FOR AVERAGING ******** 
B,D 
D 
D 

2\CSTART 
HL > 
CD 
D,0 
AF 
E,A 
HL,DE 
B 

NZ>SUML 
D , 
HL > BC 
M, LOADL 
D 

AVGLIN 
A > ( YOFF ) 
D 
(USTACK-1), A 



******** INITIALIZE FOR DOT LOCATIONS******-??***** 



DOTLO EX 

LD 

SRA 

LD 

LD 

LD 

INC 

■*•*****•* *GET 

GETDOT LD 

LD 

LD 
17 



AF , AF •- 

SP,USTACK~128D 

A 

B, A 

IY.USTACK 

E,0 

A 

DOTS*********** 

IX,USTACK~2 

CA 

H ? 



OBI A 16 00 

a r •<<-•■ r~n t-r 



:o 



.D D»0 



'•'- '. :| 9 </8 
"■'" : : 3 A OB 



">B 



:3 7 A 



48 OB 
7F! 00 



un 



''0 00 



. t:- ■ i < 
'n't 



>:J/ ,:. 



•■: r ~s i 



■i ,". r '" .if.. 



;( ' "-V., '•»■'. Of 
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SUB 


H 


OB96 


57 






7060 
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3E 
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7260 






ADD 


B 


OBBF 


3 2 


7F 


00 


7270 






LD 


( Y ) » A 


0BC2 


3 A 


SO 


OC 
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LD 
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C 
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OC 
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OB 
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UP 
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LD 
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OBDF 
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5B 


SO OC 


7410 


YC 


SUNT 
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A 


0BE6 


OB 
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OB 
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D 


OBEA 


CB 
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RL. 


E 
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OB 


12 
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D 


OBEE 
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7480 
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E 


OBFO 


OB 


12 
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D 
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OB 
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RL 


E 


0BF4 


CB 


12 
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RL 


D 


0BF6 


OB 
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7520 






RL 


E 


0BF3 


OB 


12 




7530 






RL 


D 


OBFA 


19 






7540 






ADD 


HL,DE 


OBFB 


E5 






7550 


XC 
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PUSH 


HL 


OBFO 


3 A 


7E 


00 


7560 






LD 


A, (X+l ) 


OBFF 


'IF 






7570 






LD 


C , A 


OCOO 


E6 


07 




7530 






AND 


07H 


Of: 02 


21 


75 


00 


7590 






LD 


HL, TABLE 


0005 








7600 


XL 


OOP 


ADD 


L 


0006 


6F 






7610 






LD 


L.7 A 


0007 


02 


OB 


00 


7620 






JP 


NCNORE 


000 A 


24 






7630 






INC 
19 


H 



FIXED DELTA Y+l 

PUT IT IN H REG 

SUBTRACT X2 FROM XI 

PUT X DIS/256 IN DELTA X 

CLEAR ACCUMULATOR 

JUMP IF THERE WAS NO BORROW 

CORRECT SIGN OF HB IF NEGITIVE 

FIXED DELTA X+l 

START COUNTER ANEW 

THIS IS TO CLEAR THE LOW BYTE 

ONLY, TO SAVE BYTES CLEAR BOTH 

TO THE FIRST POINT WE PLOT 

SAME HERE 
SAVE DELTA Y 
SAVE DELTA X 
SAVE THE COUNTER 
GO PLOT THE POINT 

RESTORE DELTA X 

RESTORE DELTA Y 

GET Y 

MOVE Y BY ONE BY ADDING 1/256 

PUT IT BACK IN Y 

GET Y+l 
ADD DELTA Y+l 

PUT RESULT BACK IN Y+l 

GET X 

MOVE X BY ONE BY ADDING .1/256 

PUT RESULT BACK IN X 

GET X+l 
ADD DELTA X+l 

PUT RESULT BACK IN X+l 

START THE COUNT 

PLOT 256 POINTS TO SAVE CODE 

BEGINING OF POINT ROUTINE 
FIRST GET GRAFICS BUFFER 
THEN V+l. NOW CLEAR D REG. 
CLEAR CARRY FLAG 
MULTIPLY THE DE REG. 
BY 32 TO GIVE US OUR 
LINE COUNT. THIS SUBR. 
MOVES THE COUNT BY 32 
WHICH IS THE NUMBER OF 
BYTES IN A LKNE 



NOW ADD GRFST TO NUMBER 

LINES TO GET Y 

BEGIN X COUNT ROUTINE 

GET X 

STORE IT IN REG. 

GET LAST 3 BITS 

GET ADDR. OF TABLE 
ADD L TO A TO GET OFFSET 
PUT OFFSET IN L REG. 
IF CARRY WE KNOW THE BIT 



OCOB 
OCOC 
OCOD 
OCOE 
OCOF 

ocio 

OC 1 2 
0C13 
OC.14 

0015 
OC 1 6 
OC 1 9 
OC 1 C 
OC i F 
0C22 
0C24 
OC 26 
0C27 
0C28 
0C2B 
0C2C 
0C2D 
0C2F 
0C31 
0C33 
0C35 
0C37 
0C39 
0C3A 
0C3D 
0C3E 

0C40 
0C41 

0C43 
0C44 
0C47 
0C43 
OC4A 
0C4D 
0C4E 
0C50 
0C53 
0C54 
0C57 
0C5A 
r>G5B 
0C5E 
0C6 1 
0C62 
0C65 
0C66 
0C66 
0C6A 
0G6B 
0C6C 
0C6F 
0C70 
0C71 
0C72 
0C74 
OC 75 
80 



4 6 

79 

OF 

OF 

OF 
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El 

y o 

6F 

7E 

32 87 OC 
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3A 4E OD 
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85 

6F 
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24 

E9 

IS OB 

18 13 

18 17 
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18 OA 

00 

3A B7 OC 

4F 

73 

2F 

Al 

1 8 1 B 

00 

3 A 87 OC 

BO 
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3 A 87 OC 

A8 

18 OE 

3 A 37 OC 

AG 
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CA 65 OC 

2C 
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2A 39 OC 
77 

2 A 4E 00 
09 

EO 50 85 OC 

62 

60 

01 FF IF 

97 

12 

13 

ED BO 

09 



7640 
7650 
7660 
7670 
7680 
76 90 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7340 
7850 
7860 
7870 
7880 
7890 
7 9' 00 
79.10 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
80:30 
8040 
8050 
8060 
8070 
8080 
8090 
8 1 00 
8110 
8120 
8 1 30 
8140 
8 1 50 
8160 
8170 
8180 
8190 
8200 
82 1 
8220 
3230 
8240 
8250 



MORE 



GETVAL 



MTAB 

TAB 



LOFF 
OFF 



LON 
ON 



CPL 



TEST 



FINISH 

F I NNT 
FINYT 



LB 

CD 

RRCA 

RRCA 

RRCA 

AMD 

F'OP 

ADD 

LD 

LD 

LD 

LD 

LD 

LD 

AND 

RL 

ADD 

LD 

■JP 

I NC 

•JP 

JR 

JR 

JR 

.JR 

JR 

JR 

NOP 

LD 

LD 

LD 

CPL 

AND 

JR 

NOP 

LD 

OR 

JR 

LD 

XOR 

JR 

LD 

AND 

JP 

INC 

'JP 

LD 

LD 

LD 

RET 



B, (HL) 
A , C 



LOAD B REC 
GET OLD X 
DIVIDE IT 



BYTE 



BY 



1FH 

HL 

L 

L ,. A 

A, (HL) 

(HANDLE) , 

(NHAN) , HL 

HL,TAB 

A, (COLOR) 

07ii 

A 

L 

L , A 

NC, MTAB 

H 

( HL ) 

OFF 

ON 1 

CPL 2 

TEST 3 

LOFF 4 

LON 5 

A, (HANDLE) 

C > A 

A,B 



FINISH 

A, (HANDLE) 

B 

FINISH 

A, (HANDLE) 

B 

F I N I SH 

A, (HANDLE) 

B 

HL , 

Z, FINYT 

L 

FINYT 

HL » ( NHAN ) 

( HL ) •> A 

HL , ( COLOR ) 



GET 
GET 
ADD 
PUT 
PUT 
PUT 
PUT 
THIS 



LAST 
L I NE 
LOW L 
ADDR. 
ADDR. 
IT Ih 
ADDR. 
ROUTINE 
OUT IF 



5 BITS 
COUNT 

INE COUNT TO A 
IN L REG. 
IN A 
A TEMP 
IN A TEMP 

IS TO FIND 
WE WANT THE 



DO- 



ON , OFF v COMP . » OR TESTED 
GET VALUE, MULTIPLY BY J 

ADD TO TABLE 

PUT TABLE ADDITION IN L 



VALUE, POINT 
VALUE, POINT 
VALUE, POINT 
VALUE > POINT 
VALUE, LINE 



OFF 
ON 

COMPLIMENT 
TEST 
OFF 



IN 

IN 

I N 

IN 

IN 

IN VALUE, LINE ON 

LINE OFF NOP NEEDED 

GET BIT OF DOT 

PUT IT IN C REG. 

GET LINE COUNT 

COMPLIMENT ACC. 

AMD IT WITH BIT TO TURN OFF 

WERE DONE 

LINE ON NOP NEEDED 

GET BIT OF DOT 

TURN IT ON 

WERE DONE 

GET BIT OF DOT 

COMPLIMENT IT 

WERE DONE 

GET BIT OF DOT 

AND WITH BYTE IN GRFST 
CLEAR HL REGS. 
WAS THE BIT OFF? 
NO! THEN PUT A 1 IN L 
GO SEE IF ITS A PLOT 
GET BIT TO HANDLE 
TURN I T ON , OFF , TEST , CPL 
IF NO TEST THEN RETURN 



VAL 



^ROUTINE TO CLEAR THE SCREEN* 

DE, (GRFST) GET ADDR. OF GRAPHICS BUFF. 

H,D 

L » E 

BC3191D NUMBER OF BYTES TO CLEAR 

A 

( DE ) , A 

DE 
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TABLE 



LD 

LD 

LD 

LD 

SUB 

LD 
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LDIR 
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30 30 30 30 30 

0CD4 8630 DC 31H» 32H, 33H> 34H, 35H-, 36H 

8 '-, 

OCDA 8690 DC 37H> 37H-, 37H» 37H, 37H-, 37H 

37 37 37 37 37 
8 "7 
OCEO 8700 DC 36H •> 35H , 34H » 33H , 32H , 3 1 H , 30H 

3 3. 30 
0CE7 87 i DC 3 1 H , 32H , 33H » 34H , 35H » 36H .> 37H 

OCEE 8720 DC 34H» 34H> 34H» 34H, 34H 

34 34 34 34 34 

0CF3 8730 DC 30H , 3 1 H , 32H , 33H * 34H , 35M •, 36H 
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v. 
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0D05 8760 DC OFFH 
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0D06 8770 COLADR EQU 9CA2H 

0D06 3780 COLORO DC 55H , 55H , , , OFFH , OFFH , OFFH , OFFH , OFFi i , OFFH 

55 55 00 00 FF 

FF FF FF FF FF 

OD 1 8790 DC 0C3H > 0E3H -, OBFH , ODDH > OBFH > ODDH > 0B8H > 59H 

C3 E3 BF DD BF 

DD B8 59 
OD 1 8 8800 DC OBFH » 0D5H , OBSH , 4 DH , OBFH , ODDH , OBFH > ODDH 

BF D5 BS 4D BF 

DD BF DD 
0D20 88 1 DC 0C3H , 0E3H, OFFH , OFFH » OFFH » OFFH , OFFH > OFFH 

C3 E3 FF FF FF 

FF FF FF 
0D28 8820 DC OFFH, OFFH 

FF FF 
0D2 A 8330 COLOR J. DC 55H , 55H , > , OFFH » OFFH > OFFH , OFFH > OFFH > OFFH 

55 55 00 00 FF 

FF FF FF FF FF 

0D34 8840 DC 0C3H,0FBH 

C3 FB 
0D36 , 8850 DC OBFH , 0F3H , OBFH » OFBH » OBCH > 3BH > OBFH , OFBH 

BF F3 BF FB BC 

3B BF FB 
0D3E 8860 DC OBCH , 3BH , OBFH , OFBH , OBFH , OFBH , 0C3H , OF 1 H 

BC 3B BF FB BF 

FB C3 F 1 
0D4 6 8870 DC OFFH , OFFH , OFFH , OFFH , OFFH > OFFH , OFFH » OFFH 
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FF 
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00 FF 
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00 
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DC > > ■> v > ■> » 



DC OFCH , 3FH , , , OFBH > ODFH » , , ODFH ■> 77H , » 



DC ODFH > 7BH ■> » , ODFH , 7DH » , , ODFH > 6 1 H > » 



DC •> ■> 1 » 7 •» 7 



DC OFFH 7 ODFH > , , OFBH > ODFH , > , ODFH , 77H , , 



DC ODFH » 77H > , 7 ODFH > 7DH » » , ODFH » 7DH 7 , 



DC * 7 7 7 7 v 7 



DC OFFH 7 ODFH , > 7 OFBH > ODFH » > > ODFI i » 7 7H » > 



DC ODFH 7 6FH , -, 7 ODFH , 7DH 7 7 ■> ODFH , 7DH 7 > 



DC 7 7 » > 7 7 7 



DC OFBH v ODFi i > > > OFBH > ODFH , > 7 ODFH > 77H » , 



DC ODFH 7 5FH , 7 7 ODFH , 7DH 7 > , ODFH » 7DH ■> •> 



DC 7 v 7 > 7 7 » 



DC OFCH 7 3FH , , » OFOH , 3FH 7 , ■> OEOH 7 0E3H 7 7 



DC OEOH 7 OC 1 hi 7 7 > OEOH , 0C3H > 7 > OEOH 7 OFDM » > 



DC 5 7 7 7 7 7 7 



DC OFFH 7 OFFH 7 , » OFFH » OFFH » , » OFFH > OFFH 7 7 
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FF 
00 

OF6E 
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00 
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FF 
FF 
00 
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FF 
00 
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00 

0F96 
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FF 
00 
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FF 
FF 
00 

OFAE 
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00 
00 
00 

0FC1 
00 
00 
00 
00 

0FD4 
00 
00 
00 
00 

0FE7 
00 
00 
00 
00 

OF FA 
FE 

1002 

1002 

1003 

i 004 

1204 

1205 

1205 
ID 
9E 

1200 
SA 
SA 

.1. 2 .1 4 
SC 
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00 

FF 
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00 
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00 

00 
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00 
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00 
00 

00 
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00 
00 



SA 
SA 



87 

SA 
SA 

SC 



9420 
00 FF 
FF FF 

9430 
00 00 

9440 

00 FF 
pp pp 

9450 

00 FF 
prpT crcr 

9460 
00 00 

94 70 
00 FF 
FF FF 

9480 
00 FF 
FF FF 



DC OFFH ■> OFFH » 7 ■> OFFH > OFFH » 7 , OFFH > OFFH » , 



DC > ■> ? > j •> ■> 



DC OFFH » OFFH , , * OFFH > OFFH , > » OFFH . OFFH , , 



DC OFFH , OFFH > •, ■> OFFH > OFFH > » , OFFH , OFFH > ■> 



DC > ■, » ■> ■> ■> > 



DC OFFH » OFFH , , , OFFH , OFFH , , , OFFH , OFFH » , 



DC OFFH , OFFH , , , OFFH , OFFH > , , OFFH » OFFH > > 



DC 7 7 7 7 7 7 7 7 7 > 7 J 7 V 7 7 7 7 



DC » 7 7 > 7 •> 7 7 7 7 7 7 7 J 7 > 7 7 



DC 7 7 7 7 7 V 7 7 7 7 7 7 7 > 7 7 7 7 



9490 
00 00 
00 00 
00 00 
00 

9500 
00 00 
00 00 
00 00 
00 

95 10 
00 00 
00 00 
00 00 
00 

9520 
00 00 
00 00 
00 00 
00 

9530 LIBUF DS 4 

9540 BOXBUF DS 4 

9550 DELAY EQU 017BH 

9560 BIT DS 1 

9570 COLORT DS 1 
580 STACK DS 51 2D 
590 USTACK NOP 

.00 * USERS STACK FOR EIGHT PEN ROUTINE * 
. 1 FAKE DC 1 DH , 83H 7 S7H 7 97H 7 97H 7 9EH 7 35H 



DC 7 7 7 > > * > 7 7 7 7 7 1 7 7 v 7 7 



9 
9 
96 
96 



97 97 

9620 
8A SA 



DC 8AH 7 8AH , 8AH , 8AH , 8 AH » 8AH 7 8AH 7 8AH 



9630 DC 8CH * 8CH > 8CH 7 8CH 7 8CH,8CH > 8CH>8CH 

sc sc 26 



3C 

12.1C 

S4 

SA 



80 
8 A 



8C 



9640 



DU 



84H> 8 AH , 3 AH v 8AH> 8 AH, 3 AH, 82H 



3A 



r-JO ERRORS FOUND 



FILE 


3000 


885D 












READY 
















LTABL 
















ALL 


OB 48 


AMOUNT 


0C6C 


ASSIGN 


073C 


AUTO 


0647 


AVGDOT 


OB 66 


AVGLIN 


OAFS 


BIT 


1002 


BL1 


0396 


BL2 


0898 


BLKOFF 


0A6D 


BOX 


0803 


BOXBUF 


OFFE 


BOX DO 


085D 


BOX DRW 


0321 


BOX ST 


080 E 


CAL 


09E8 


CALDO 


0A20 


CALDO 


OA 1 B 


CALP 


09F2 


CALROU 
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